home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / apps2 / biostuff.lzx / tme.opl < prev   
Text File  |  1986-05-23  |  879b  |  64 lines
  1. proc TIMEAD:
  2. LOCAL A1,B1,C1,D1,E1,F1,G1,H1,KEY%
  3. ESCAPE ON
  4.  
  5. TOP::
  6. CLS
  7. PRINT"Hr";CHR$(63)
  8. INPUT A1
  9. PRINT "Min";CHR$(63)
  10. INPUT B1
  11. PRINT "Sec";CHR$(63)
  12. INPUT C1
  13. D1=D1+A1
  14. E1=E1+B1
  15. F1=F1+C1
  16. IF F1>59 OR F1<0
  17.  GOTO SEC::
  18. ELSEIF E1>59 OR E1<0
  19.  GOTO MIN::
  20. ENDIF 
  21.  
  22. ASK::
  23. CLS
  24. IF F1<10 AND E1<10
  25.  PRINT D1;"h 0";E1;"m 0";F1;"s" 
  26. ELSEIF F1<10
  27.  PRINT D1;"h ";E1;"m 0";F1;"s"
  28. ELSEIF E1<10
  29.  PRINT D1;"h 0";E1;"m ";F1;"s"
  30. ELSE PRINT D1;"h ";E1;"m ";F1;"s"
  31. ENDIF
  32. PRINT " Add(Y/N)";CHR$(63)
  33. KEY%=GET
  34. IF KEY%=%n
  35.  RETURN
  36. ELSEIF KEY%=%y
  37.  GOTO TOP::
  38. ELSE GOTO ASK::
  39. ENDIF
  40.  
  41. SEC::
  42. IF F1>59
  43.  G1=INTF(F1/60) 
  44.  F1=F1-(60*G1)
  45.  E1=E1+G1
  46. ELSEIF F1<0
  47.  G1=1+(INTF(ABS(F1/60)))
  48.  F1=F1+(60*G1)
  49.  E1=E1-G1
  50. ENDIF
  51.  
  52. MIN::
  53. IF E1>59
  54.  H1=INTF(E1/60) 
  55.  E1=E1-(60*H1)
  56.  D1=D1+H1
  57. ELSEIF E1<0
  58.  H1=1+(INTF(ABS(E1/60)))
  59.  E1=E1+(H1*60)
  60.  D1=D1-H1
  61. ENDIF
  62. GOTO ASK::
  63. endp
  64.